home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Docs / Tutorials / GuiRename.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-12-03  |  1.3 KB  |  56 lines
  1. G4C
  2.  
  3. ; An example of the use of the GuiRename command to launch
  4. ; the same gui many times.
  5. ; =============================================================
  6.  
  7. xOnLoad
  8.  
  9.    ; we set up a counter, and construct 10 little windows..
  10.    c = 1
  11.    while $c <= 10
  12.       ; load the temporary file which we create below, passing
  13.       ; a new number to the xOnLoad command of that file.
  14.       guiload ram:temp.gc MyGui. $c
  15.       ++c
  16.    endwhile    
  17.  
  18.    delete ram:temp.gc      ; be tidy..
  19.    guiquit #this
  20.  
  21.  
  22. ; -------------------------------------------------------------
  23. ; Crete a gui file in ram, called temp.gc
  24. ; This gui will load itself and GuiRename itself into MyGui.xx
  25. ; where xx is the number we pass
  26. ; -------------------------------------------------------------
  27.  
  28. TextFile ram:temp.gc          ; This command creates a file
  29. G4C
  30.  
  31. WinBig -1 -1 150 60 ""
  32.  
  33. xOnLoad basename winnum       ; we pass the base name & the number
  34.  
  35.    appvar basename $winnum    ; construct the new name (eg MyGui.1)
  36.    guirename #this $basename  ; rename the gui..
  37.  
  38.    ; just for show, give the windows random positions...
  39.    changearg #this 0 0 $$Rand.500
  40.    changearg #this 0 1 $$Rand.250
  41.  
  42.    ; and a unique title
  43.    setwintitle #this 'Window: $winnum'
  44.  
  45.    guiopen #this              ; finally, open it..
  46.  
  47. xOnClose
  48.    guiquit #this
  49.  
  50. ###                           ; This signifies the end of file
  51.  
  52.  
  53.  
  54.  
  55.  
  56.